home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / COMMADIO / GTPCPS44.LZH / PCP-FONE.SCR < prev    next >
Text File  |  1988-12-30  |  1KB  |  33 lines
  1. ;GTPCP/4.4 -- PCP-PHONE  -- Perry Alexander
  2. ;Script to obtain TeleNet local phone numbers
  3. ;Connect this to an entry in the dialing directory with the
  4. ;telephone number 1-800-424-9494
  5. ;
  6. CLEAR
  7. WRITELN " ╔═══════════════════════════════════════════════════════════════╗ "
  8. WRITELN " ║                           GTPCP 4.4                           ║ "
  9. WRITELN " ║                                                               ║ "
  10. WRITELN " ║            Connecting to TeleNet's PC Phone Directory         ║ "
  11. WRITELN " ║                                                               ║ "
  12. WRITELN " ║        To Return to Terminal Mode   . . . . . Press Alt-X     ║ "
  13. WRITELN " ╚═══════════════════════════════════════════════════════════════╝ "
  14. TWAIT 4000
  15. SENDLN
  16. SENDLN "D"
  17. WAIT FOR "TERMINAL="
  18. SEND "D"
  19. SENDLN "1"
  20. WAIT FOR "@"
  21. RMWIN
  22. SENDLN "MAIL"
  23. WAIT FOR "User Name? "
  24. SENDLN "PHONES"
  25. WAIT FOR "Password? "
  26. SENDLN "PHONES"
  27. ONLINE
  28. WAIT FOR "@"
  29. SENDLN "HANGUP"
  30. BEEP
  31. CLEAR
  32. END
  33.